home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
olrdrs
/
1st_111b.zip
/
SCRIPTS.ZIP
/
MAXIMUS.SCR
< prev
next >
Wrap
Text File
|
1993-05-23
|
2KB
|
84 lines
' ┌───────────────────────────────┐
' │ 1stReader Mail script │
' │ For Maximus │
' │ May 15th, 1993 │
' └───────────────────────────────┘
IF SCR_CALL THEN GOTO SETUP
CAPTURE ON
TIMEOUT 30
:SETUP
LOOKFOR "Esc" "X'1BX'1B"
LOOKFOR "ENTER to continue" "^M"
LOOKFOR "able protocols:" "Z^M"
LOCKLINE 20 30
COMMENT "@DATE@ @TIME@ Connected with @BBSNAME@"
COMMENT "@DATE@ @TIME@ Opened capture file @BBSID@.CAP"
COMMENT "@DATE@ @TIME@ Logging in to system"
WAITFOR "name:"
LOOKFOR "Esc" ""
TRANSMIT "@USER@^M"
WAITFOR "[Y,n]?"
TRANSMIT "Y^M"
WAITFOR "Password:"
TRANSMIT "@PASSWORD@^M"
LOOKFOR "Escape" ""
IF NOT SCR_CALL THEN GOTO MAIL
TERMINAL
EXIT
:MAIL
LOOKFOR "[Y,n]?" "N^M"
LOOKFOR "(Y,n)" "N^M"
WAITFOR "Select:"
COMMENT "@DATE@ @TIME@ Selecting offline mail system"
TRANSMIT "O^M"
LOOKFOR "[Y,n]?" ""
LOOKFOR "(Y,n)" ""
:REPLIES
IF NOT REPLIES THEN GOTO DOWNLOAD
COMMENT "@DATE@ @TIME@ Uploading replies"
WAITFOR "Select:"
TRANSMIT "U^M"
WAITFOR "cancel." 10
UPLOAD @REPDIR@@BBSID@.REP
WAITFOR "Tossing|Error"
IF FOUND=1 THEN GOTO GOODUPLD
GOTO DOWNLOAD
:GOODUPLD
COMMENT "@DATE@ @TIME@ Deleting @BBSID@.REP"
KILL @REPDIR@@BBSID@.REP
COUNT REP
:DOWNLOAD
WAITFOR "Select:"
IF SCR_REPLY THEN GOTO EXIT1
TRANSMIT "D^M"
COMMENT "@DATE@ @TIME@ Scanning for new messages"
WAITFOR "format [Y,n]?|Select:"
IF FOUND=2 THEN GOTO EXIT1
TRANSMIT "Y^M"
WAITFOR "to abort:"
TRANSMIT "^M"
DOWNLOAD @PACKETDIR@@BBSID@.QWK
COUNT QWK
:EXIT
WAITFOR "Select:" 20
:EXIT1
COMMENT "@DATE@ @TIME@ Waiting for disconnect"
TRANSMIT "G;Y;N^M"
PAUSE 10
CAPTURE OFF